add comp-test-silly-frame to tests

diff --git a/test/src/comp-test-funcs.el b/test/src/comp-test-funcs.el
index e43db6973b79e1e1fca28209946988e217b6d270..3d8d3437bda1dd84340f7a7b6ac74f538addc565 100644 (file)
--- a/test/src/comp-test-funcs.el
+++ b/test/src/comp-test-funcs.el
@@ -338,4 +338,15 @@
         (setq comp-test-up-val 24))
     (setq comp-test-up-val 999)))
 
+;; Non tested functions that proved just to be difficult to compile.
+
+(defun comp-test-callee (_ _) t)
+(defun comp-test-silly-frame (x)
+  (cl-case x
+    (0 (comp-test-callee
+        (pcase comp-tests-var1
+          (1 1)
+          (2 2))
+        3))))
+
 ;;; comp-test-funcs.el ends here